home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #051 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #051 (1990)(Amiga User Group Deutschland e.V.).adf / ElektrischeSchaltungen / Ausschaltung (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  2KB  |  85 lines
  1.  
  2.  
  3.         SCREEN 2,320,200,3,1
  4. anfang:    
  5.         WINDOW 2," Ausschaltung ",(0,10)-(297,186),1+2+8,2
  6.         PALETTE 0,0.1,0,0.33       
  7.         PALETTE 1,0.4,0.87,0.1    
  8.         PALETTE 2, 0,0.93,0.87 
  9.         PALETTE 3,1,1,0.13     
  10.         PALETTE 4,0.7,0.5,1   
  11.         PALETTE 5,0.8,0.6,0.53  
  12.         PALETTE 6,0.83,0.2,0   
  13.         PALETTE 7,0.49,0.89,1  
  14.         COLOR 6,3
  15.         
  16.         CIRCLE (30,30),28,1,,,1 
  17.         CIRCLE (20,45),1.5,3     
  18.         CIRCLE (30,30),1.5,3    
  19.         CIRCLE (40,45),1.5,3     
  20.         CIRCLE (30,15),1.5,3    
  21.         CIRCLE (240,30),20,1           
  22.         CIRCLE (240,15),1.5,3    
  23.         CIRCLE (240,45),1.5,3    
  24.         CIRCLE (30,150),20,3,,,1     
  25.         CIRCLE (20,150),1.5,3       
  26.         CIRCLE (40,150),1.5,3
  27.         CIRCLE (220,30),1.5,3        
  28.         LINE   (40,45)-(40,150),4    
  29.         LINE   (40,45)-(240,45),4    
  30.         LINE   (20,45)-(20,150),5    
  31.         LINE   (0,45)-(20,45),5      
  32.         LINE   (0,15)-(240,15),7     
  33.         LINE   (0,30)-(220,30),1     
  34.         LINE   (230,20)-(250,40),6   
  35.         LINE   (230,40)-(250,20),6   
  36.         LINE   (20,150)-(37,140),6   
  37.         
  38.         LOCATE 2,1 : PRINT "N" : LOCATE 5,1 :PRINT "PE"
  39.         LOCATE 7,1 : PRINT "L1" :LOCATE 20,15 :PRINT " Linke Maustaste"
  40.         LOCATE 19,8 :PRINT "S1"
  41.         ON MOUSE GOSUB start         
  42.         MOUSE ON                     
  43.         WHILE INKEY$="" : WEND  
  44.     start:  
  45.       LINE   (20,150)-(40,150),6     
  46.     aus:
  47.       LINE (20,150)-(37,140),0                    
  48.         FOR i=0 TO 20 STEP 0.1
  49.         PSET (i,45),6
  50.         NEXT i
  51.         IF i=20 THEN GOSUB weiter 
  52.     weiter:
  53.         FOR i=45 TO 150 STEP 0.1
  54.         PSET (20,i),6  
  55.         NEXT i
  56.         FOR y=-0 TO 105 STEP 0.1              
  57.         PSET (40,150-y),6
  58.         NEXT y
  59.         FOR b=40 TO 240 STEP 0.1
  60.         PSET (b,45),6
  61.         NEXT b    
  62.      an:
  63.         a=3        
  64.         CIRCLE (240,30),20,a
  65.         PAINT  (240,30),a            
  66.         ON MOUSE  GOSUB anfang
  67.         MOUSE ON
  68.         WHILE INKEY$="":WEND
  69.         
  70.         
  71.         
  72.        
  73.         
  74.         
  75.         
  76.         
  77.         
  78.         
  79.         
  80.         
  81.         
  82.         
  83.         
  84.         
  85.